00100	BEGIN
00200	REQUIRE "IODEFS[1,BLF]" SOURCE_FILE;
00300	
00400	
00500	DEFINE ITT(X,N) = "FOR X←1 STEP 1 UNTIL N DO";
00600	STRING BLANK1,BLANK10,BLANK20,DELIMSS,FORMFEED;
00700	
00800	INTEGER I, I1, J, J1, K;
00900	INTEGER NEXTL,NEXTA,LI,SSLEN,ATLEN,ERROR,IDUM,INCH1,INCH2,EOF1,EOF2;
01000	REAL R, RR, RRR;
01100	STRING S, SS, SSS,ST,SY,SV,FILENAME,SU,LASTNAME,LASTLINE,ZEROKS;
01200	FORMFEED← '14;
01300	ZEROKS←"000000000000";
01400	BLANKS←"                                                   ";
01500	BLANK1←"   ";
01600	STDBRK(INCH);
01700	DELIMSS← '15 & '12 & '40 & '11 & '14;
01800	SETBREAK(1, '12, '15 & '14, "INS");
     

00100	SS←NULL;
00200	WHILE NOT EQU(SS,"G") AND NOT EQU(SS,"A") AND NOT EQU(SS,"D") DO 
00300	 SS←ASK("Would you like General, Documentation,
00400	   or Access information [G, D, or A]? ");
00500	
00600	IF EQU(SS,"G") THEN 
00700	  SAY("	Parry is one of the belief system models
00800	implemented by the Higher Mental Functions project at
00900	Stanford University and at the University of California at
01000	Los Angeles.
01100	
01200		Parry itself is a model of a paranoid patient who
01300	is interviewed by a clinician in a first diagnostic interview
01400	by teletype.  The model is available for demonstration purposes
01500	over the ARPA net.  For access information, type A to this program.
01600	For documentation information, type D.
01700	 ");
01800	
01900	IF EQU(SS,"D") THEN SAY("
02000	PARRY IS A SYSTEM OF PROGRAMS AND DATA FILES WRITTEN IN SEVERAL 
02100	PROGRAMMING LANGUAGES.  THE IMPLEMENTATION AT STANFORD TAKES 
02200	ADVANTAGE OF SEVERAL UUO'S WHICH ARE UNIQUE TO STANFORD.
02300	THEREFORE, PARRY IS NOT EXPORTABLE IN ANY SIMPLE
02400	SENSE OF THE WORD.
02500	
02600	INFORMATION ON THE INTERNAL WORKINGS OF PARRY IS CONTAINED IN 
02700	THE 2 STANFORD AI MEMOS: AIM234 AND AIM253.
02800	THESE MAY BE ORDERED FROM:
02900		DOCUMENTATION SERVICES
03000		ARTIFICIAL INTELLIGENCE LABORATORY
03100		STANFORD UNIVERSITY
03200		STANFORD, CALIFORNIA  94305
03300	 ");
03400	
03500	IF EQU(SS,"A") THEN   SAY("
03600		A new pathological belief systems model will
03700	be available soon at the SUMEX-AIM facility.
03800	The model will require extensive testing by persons not
03900	directly associated with the project.  If you would like to
04000	participate in interviewing the model, send the following
04100	information to FAUGHT at SUMEX (or SUMX) (ARPA host no 56):
04200	  Your name
04300	  Your work or home address
04400	  Your ARPA-net mailing address
04500	  A brief (3 lines or less) explanation as to your interest
04600	in interviewing psychological models.
04800	
04900		A number of people will be selected and the password for
05000	using the GUEST account at SUMEX will be sent to them (via
05100	their ARPA mailboxes).
05200	 ");
05400	END;
05500	
05600	SAY(" ");
05700	IF EQU(SS,"SSSSSXXXXX") THEN BEGIN "D"
05800	FILENAME←ASK("FILIN="); FILIN(FILENAME); 
05900	SS←ASK("FILOUT="); FILOUT(SS);
06000	
06100	WHILE NOT EOF DO  BEGIN "MERGE"
06200	
06300	END "MERGE" ;
06400	RELEASE(OUCH); RELEASE(INCH);
06500	END "D" ;
     

00100	    	COMMENT END OF PROGRAM;
00200	END;